home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 087 / dropshadow / prop.c < prev    next >
C/C++ Source or Header  |  1995-03-13  |  1KB  |  66 lines
  1. /* prop.c -- dropshadow gadgets    */
  2.  
  3. /* this program copyright 1987, james mackraz.  may not be distributed
  4.  * for profit.  copies of the source may be made for not-for-profit
  5.  * distribution, but must include this notice.
  6.  *
  7.  * james mackraz, 4021 Second Street, Palo Alto, CA, 94306
  8.  */
  9.  
  10. #include "ds.h"
  11.  
  12. extern struct Window   *window;
  13.  
  14. #define DARKID    8
  15. #define DARKBODY 0xFFFF/16
  16. #define TWXTBODY 0xFFFF/16
  17.  
  18. #define    GLEFT    55
  19. #define GTOP0      13
  20. #define GTOP1      (GTOP0 + GHEIGHT + -1)
  21. #define GWIDTH    (-(GLEFT + 25))
  22. #define GHEIGHT 7
  23.  
  24. extern struct Gadget    twxt;
  25.  
  26. struct PropInfo darkinfo = {
  27.     AUTOKNOB | FREEHORIZ, 0xffff >> 1, 0, DARKBODY, 0
  28. };
  29.  
  30. struct Image darkimage;
  31.  
  32. struct Gadget    darkness = {
  33.     &twxt,  GLEFT, GTOP0, GWIDTH, GHEIGHT,
  34.     GADGHCOMP | GADGIMAGE  | GRELWIDTH,
  35.     GADGIMMEDIATE | FOLLOWMOUSE | RELVERIFY,
  36.     PROPGADGET,
  37.     (APTR) &darkimage,
  38.     NULL,
  39.     NULL,
  40.     0,
  41.     (APTR) &darkinfo,
  42.     DARKID,
  43.     0
  44. };
  45.  
  46. struct PropInfo twxtinfo = {
  47.     AUTOKNOB | FREEHORIZ, 4 << TWXTSHIFT , 0, TWXTBODY, 0
  48. };
  49.  
  50. struct Image twxtimage;
  51.  
  52. struct Gadget    twxt = {
  53.     NULL,  GLEFT, GTOP1, GWIDTH, GHEIGHT,
  54.     GADGHCOMP | GADGIMAGE  | GRELWIDTH,
  55.     RELVERIFY,
  56.     PROPGADGET,
  57.     (APTR) &twxtimage,
  58.     NULL,
  59.     NULL,
  60.     0,
  61.     (APTR) &twxtinfo,
  62.     TWIXTID,
  63.     0
  64. };
  65.  
  66.